home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD017a.dsk / FROM.GAMES.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  81 lines
  1. 10  REM  FROM.GAMES
  2. 20  TEXT : SPEED= 255
  3. 22  DIM CL$(24),AN$(24)
  4. 24  FOR I = 1 TO 24: READ CL$(I),AN$(I): NEXT 
  5. 30  HOME : HTAB 12: PRINT "SOFTDISK MAGAZETTE": HTAB 13: PRINT "3811 ST. VINCENT": HTAB 10: PRINT "SHREVEPORT, LOUISIANA 71108"
  6. 40  PRINT : PRINT "   'GAMES' IS A NON COMPUTER MAGAZINE"
  7. 50  PRINT : PRINT "THAT WILL STIMULATE YOUR MIND.  A ONE"
  8. 60  PRINT : PRINT "YEAR SUBSCRIPTION IS $14.97.  THE"
  9. 70  PRINT : PRINT "ADDRESS IS:   GAMES": HTAB 15: PRINT "P.O. BOX 10145": HTAB 15: PRINT "DES MOINES, IOWA 50340"
  10. 80  PRINT : PRINT : PRINT : PRINT "   THE FOLLOWING QUIZ WAS TAKEN FROM"
  11. 90  PRINT : PRINT "PAGE 35 OF NOV 82 'GAMES'."
  12. 100  GOSUB 8000: GOSUB 7000
  13. 110  PRINT : PRINT "   IT MIGHT SAVE TIME IF YOU TOOK THIS"
  14. 120  PRINT : PRINT "QUIZ IN AN ECHO CHAMBER.  THE ANSWER TO"
  15. 130  PRINT : PRINT "EACH CLUE IS A MULTISYLLABLE WORD OR"
  16. 140  PRINT : PRINT "TWO-WORD PHRASE IN WHICH THE SECOND"
  17. 150  PRINT : PRINT "HALF REPEATS THE FIRST. FOR EXAMPLE,"
  18. 160  PRINT : PRINT "THE CLUE  DOLL'S CRY  WOULD BE ANSWERED"
  19. 170  PRINT : PRINT "'MAMA', WHILE  MAKE LIGHT OF  WOULD BE"
  20. 180  PRINT : PRINT "ANSWERED 'POOH-POOH'.  TWELVE CORRECT"
  21. 190  PRINT : PRINT "ANSWERS IS S0-SO, BUT A SCORE OF 20 OR"
  22. 200  PRINT : PRINT "MORE CLASSIFIES YOU AS A LULU."
  23. 210  GOSUB 8000: GOSUB 7000
  24. 220  PRINT : HTAB 13: PRINT "-- NOTE --"
  25. 230  PRINT : PRINT "   YOU DO NOT TYPE IN YOUR ANSWERS."
  26. 240  PRINT : PRINT "FORMULATE YOUR ANSWER IN YOUR HEAD."
  27. 250  PRINT : PRINT "THEN HIT THE 'A' KEY FOR THE ANSWER."
  28. 260  PRINT : PRINT "NEXT YOU WILL BE ASKED IF YOU GOT IT"
  29. 270  PRINT : PRINT "CORRECT.  BE HONEST."
  30. 280  PRINT : PRINT "   IF YOU WISH TO SKIP A CLUE YOU MAY"
  31. 290  PRINT : PRINT "TYPE IN AN 'S'."
  32. 300  PRINT : PRINT : HTAB 15: PRINT "GOOD LUCK!"
  33. 310  GOSUB 8000
  34. 390  GOSUB 7000:I = 0:RT = 0:WR = 0:SK = 0
  35. 400 I = I +1: IF I >24 GOTO 1000
  36. 410  GOSUB 7000: VTAB 4: INVERSE : PRINT "CLUE NUMBER ";I: NORMAL 
  37. 420  PRINT : PRINT CL$(I)
  38. 425  PRINT : INVERSE : PRINT "REMEMBER, JUST THINK OF THE ANSWER.": NORMAL : PRINT 
  39. 430  INVERSE : PRINT "A";: NORMAL : PRINT " = ANSWER   ";: INVERSE : PRINT "S";: NORMAL : PRINT " = SKIP ";: GET R$: PRINT R$
  40. 440  IF R$ = "S"  THEN SK = SK +1: GOTO 400
  41. 450  IF R$ < >"A"  THEN  VTAB ( PEEK(37)): CALL  -868: GOTO 430
  42. 460  VTAB ( PEEK(37)): CALL  -868
  43. 470  INVERSE : PRINT "ANSWER": NORMAL 
  44. 480  PRINT : PRINT AN$(I): PRINT 
  45. 490  INVERSE : PRINT "DID YOU GET IT RIGHT? (Y OR N) ";: NORMAL : GET R$: PRINT R$
  46. 500  IF R$ = "Y"  THEN RT = RT +1: GOTO 400
  47. 510  IF R$ < >"N"  THEN  VTAB ( PEEK(37)): CALL  -868: GOTO 490
  48. 520 WR = WR +1: GOTO 400
  49. 1000  GOSUB 7000: PRINT : PRINT : HTAB 10: PRINT "HERE'S YOUR SCORE": PRINT : PRINT 
  50. 1010  HTAB 14: PRINT "RIGHT   ";:RT$ =  STR$(RT): IF  LEN(RT$) = 1  THEN  PRINT " ";
  51. 1020  PRINT RT$: PRINT : HTAB 14: PRINT "WRONG   ";:WR$ =  STR$(WR): IF  LEN(WR$) = 1  THEN  PRINT " ";
  52. 1030  PRINT WR$: PRINT : HTAB 12: PRINT "SKIPPED   ";:SK$ =  STR$(SK): IF  LEN(SK$) = 1  THEN  PRINT " ";
  53. 1040  PRINT SK$: HTAB 21: PRINT "---": HTAB 14: PRINT "TOTAL   ";: PRINT RT +WR +SK
  54. 1050  PRINT : PRINT : HTAB 5: PRINT "WANT TO DO IT AGAIN? (Y OR N) ";: GET R$: PRINT R$: IF R$ = "Y" GOTO 390
  55. 1060  PRINT  CHR$(4)"RUN KICK.IT.OFF"
  56. 7000  HOME : HTAB 9: PRINT "YOU CAN SAY THAT AGAIN!": HTAB 11: PRINT "BY ELEANOR MCKINLAY": RETURN 
  57. 8000  VTAB 24: HTAB 12: INVERSE : PRINT " HIT SPACE BAR ";: NORMAL : GET R$: PRINT R$: RETURN 
  58. 10000  DATA "DOROTHY'S DOG","TOTO"
  59. 10010  DATA "PERFECT EYESIGHT","TWENTY-TWENTY"
  60. 10020  DATA "UP-AND-DOWN TOY","YO-YO"
  61. 10030  DATA "EVA GABOR'S SISTER","ZSA ZSA"
  62. 10040  DATA "TRAIN, TO A CHILD","CHOOCHOO"
  63. 10050  DATA "CITY IN SOUTHEAST WASHINGTON","WALLA WALLA"
  64. 10060  DATA "EXTINCT BIRD","DODO"
  65. 10070  DATA "CHOCOLATE TREAT","BONBON"
  66. 10080  DATA "LIVELY FRENCH DANCE","CANCAN"
  67. 10090  DATA "LINE BEFORE 'WHO'S THERE?'","KNOCK KNOCK"
  68. 10100  DATA "LONG NARROW DRUM","TOM-TOM"
  69. 10110  DATA "1940S GI EXCLAMATION OF APPROVAL","HUBBA HUBBA"
  70. 10120  DATA "SPA CITY OF THE BLACK FOREST","BADEN BADEN"
  71. 10130  DATA "SMALL MISTAKE","BOO-BOO"
  72. 10140  DATA "1960S DISOTHEQUE","GO-GO"
  73. 10150  DATA "FAMOUS NEW YORK PRISON","SING SING"
  74. 10160  DATA "ONE RESULT OF B1 DEFICIENCY","BERI-BERI"
  75. 10170  DATA "OSCAR-WINNING LESLIE CARON MOVIE","GIGI"
  76. 10180  DATA "DISEASE-CARRYING FLY","TSETSE"
  77. 10190  DATA "BALLERINA'S GARB","TUTU"
  78. 10200  DATA "1968 ASSASSIN","SIRHAN SIRHAN"
  79. 10210  DATA "SAMOA'S CAPITAL","PAGO PAGO"
  80. 10220  DATA "PETER PAN'S LAND, IN THE MOVIE","NEVER NEVER"
  81. 10230  DATA "THOR HEYERDAHL BOOK","AKU-AKU"